Index: stml.scm
==================================================================
--- stml.scm
+++ stml.scm
@@ -256,11 +256,11 @@
   (map (lambda (x)
 	 (cond 
 	  ((string? x) (print x)) ;; (print x))
 	  ((symbol? x) (print x)) ;; (print x))
 	  ((list? x)   (s:output port x))
-	  (else
+	  (else ""
 	   ;; (print "ERROR: Bad input 02") ;; why do anything? don't output junk.
 	   )))
        inlst))
 ;  (if (> (length inlst) 2)
 ;      (print)))