Index: session.scm
==================================================================
--- session.scm
+++ session.scm
@@ -751,11 +751,13 @@
 			    #f)))))
     (case dtype
       ((raw)     res)
       ((number)  (if (string? res)(string->number res) #f))
       ((escaped) (s:html-filter res tags)) 
-      (else      (s:html-filter res '())))))
+      (else      (if (string? res)
+		     (s:html-filter 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)))
     (if (not formdat) #f

Index: setup.scm
==================================================================
--- setup.scm
+++ setup.scm
@@ -86,12 +86,18 @@
 (define (s:session-get-sessionvars)
   (sdat-get-sessionvars s:session))
 
 ;; inputs
 ;;
-(define (s:get-input key)
-  (session:get-input s:session key))
+;; param: (dtype [tag1 tag2 ...])
+;; dtype:
+;;    'raw     : do no conversion
+;;    'number  : convert to number, return #f if fails
+;;    'escaped : use html-escape to protect the input
+;;
+(define (s:get-input key . params)
+  (session:get-input s:session key params))
 
 (define (s:get-input-keys)
   (session:get-input-keys s:session))
 
 (define (s:load-model model)