JESS: Cant get rule to run

(defrule MASKCreate
  (ModelingTask (task ArchitecturalDesignTask) (ref ?ArchitecturalDesignTask&~nil))
  ?MAKSTask <- (ModelingTask (task MASKModeling) (ref nil))
  =>
  (bind ?ref (make-instance of "Multi-agent Society Knowledge Modeling" (name (str-cat "Multi-agent Society Knowledge Modeling of " ?*project*))))
  (modify ?MAKSTask (name (str-cat "Multi-agent Society Knowledge Modeling of " ?*project*)) (ref ?ref))

  (slot-insert$ ?ArchitecturalDesignTask subtasks 1 ?ref)

  (assert (ModelingProduct (product MASKModel)))
)

(defrule MASKModelTransformation
  (ModelingProduct (product ArchitecturalModel) (ref ArchitecturalModel&~nil))
  (ModelingTask (task MASKModeling) (ref MASKModeling&~nil))
  ?MASKModel <- (ModelingProduct (product MASKModel) (ref nil))
  =>
  (bind ?modelname (str-cat "Multi-agent Society Knowledge Model of " ?*project*))

  (bind ?model (make-instance of "Multi-agent Society Knowledge Model" (name ?modelname)))
  (slot-set ?MASKModel (?name ?modelname) (ref ?model))

  (slot-set ?MASKModeling products ?model)
  (slot-insert$ ?ArchitecturalModel subproducts 1 ?model)

)

(assert (ModelingTask (task MASKModeling)))

(run)

(MAIN::ModelingProduct (product ArchitecturalModel) (name "Architectural Model of Uiratan") (ref <Java-Object:edu.stanford.smi.protege.model.DefaultSimpleInstance>))

(MAIN::ModelingTask (task MASKModeling) (name "Multi-agent Society Knowledge Modeling of Uiratan") (ref <Java-Object:edu.stanford.smi.protege.model.DefaultSimpleInstance>))

(MAIN::ModelingProduct (product MASKModel) (name nil) (ref nil))