Index: stml2.scm
==================================================================
--- stml2.scm
+++ stml2.scm
@@ -2652,17 +2652,21 @@
 ;;   v ; => 16
 ;; 
 
 (define-simple-syntax (s:if-param varname first ...)
   (if (s:get varname)
-      first
-      ...))
+      (begin
+	first
+	...)
+      '()))
 
 (define-simple-syntax (s:if-sessionvar varname first ...)
   (if (s:session-var-get varname)
-      first
-      ...))
+      (begin
+	first
+	...)
+      '()))
 
 ;; (define-macro (s:if-param varname ...)
 ;;   (match dat
 ;; 	 (()    '())
 ;; 	 ((a)    `(if (s:get ,varname) ,a '()))