Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -N -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	1 Dec 2015 09:26:14 -0000	1.16.2.1
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	4 Dec 2016 13:47:01 -0000	1.16.2.2
@@ -277,8 +277,11 @@
     }
     set package_id [my get_package_id_from_package_key -package_key $package_key]
     set value [$parameter_obj get -package_id $package_id]
-    if {$value eq "" && [$parameter_obj set __success] == 0} {return $default}
-    return $value
+    if {$value eq "" && [$parameter_obj set __success] == 0 && [info exists default]} {
+      return $default
+    } else {
+      return $value
+    }
   }
 
   parameter proc get {