@@ -528,11 +528,14 @@
                                  (common:without-vars
                                   command
                                   "MT_.*"))
                                (message-window  (conc "Directory " rundir " not found"))))))
           (xterm)
-          (print "Adding xterm code")))))
+        )
+     )
+  )
+)
 
 ;;======================================================================
 ;; D A T A   T A B L E S
 ;;======================================================================