Index: session.scm
==================================================================
--- session.scm
+++ session.scm
@@ -751,14 +751,14 @@
 			    #f)))))
     (case dtype
       ((raw)     res)
       ((number)  (if (string? res)(string->number res) #f))
       ((escaped) (if (string? res)
-		     (s:html-filter res tags)
+		     (s:html-filter->string res tags)
 		     res))
       (else      (if (string? res)
-		     (s:html-filter res '())
+		     (s:html-filter->string res '())
 		     res)))))
 
 ;; This one will get the first value found regardless of form
 (define (session:get-input-keys self)
   (let* ((formdat (sdat-get-formdat self)))