Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -923,11 +923,11 @@
 				     (let* ((key-msg    `((message  . ,(conc ruletype ":" message))
 							  (runname  . ,runname)
 							  (runtrans . ,runtrans)
 							  (action   . ,action)
 							  (areas    . ,areas)
-							  (target   . ,new-target) ;; overriding with result from runing the script
+							  (target   . `(,new-target)) ;; overriding with result from runing the script
                                                           )))
 				       (print "key-msg: " key-msg)
 				       (push-run-spec torun contour
 						      (if optional  ;; we need to be able to differentiate same contour, different behavior. 
 							  (conc runkey ":" optional)  ;; NOTE: NOT COMPLETELY IMPLEMENTED. DO NOT USE