Index: stml.scm
==================================================================
--- stml.scm
+++ stml.scm
@@ -110,11 +110,17 @@
          (params (s:process-params (cadr inputs))))
     (list data)))
 
 ;; puts a nice box around a chunk of stuff
 (define (s:fieldset legend . args)
-  (list "<FIELDSET><LEGEND>" legend "<LEGEND>" args "</FIELDSET>"))
+  (list "<FIELDSET><LEGEND>" legend "</LEGEND>" args "</FIELDSET>"))
+
+;; given a string return the string if it is non-white space or &nbsp; otherwise
+(define (s:nbsp str)
+  (if (string-match "^\\s*$" str)
+      "&nbsp;"
+      str))
 
 ;; USE 'page_override to override a linkto page from a button
 (define (s:form   . args)
   ;; create a link for calling back into the current page and calling a specified 
   ;; function