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 -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 {