Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	23 Jun 2015 09:45:18 -0000	1.31
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	23 Jun 2015 09:55:43 -0000	1.32
@@ -746,7 +746,7 @@
 
     # Override stuff in the spec with stuff provided as an argument here
     foreach var { short_name package_key object_id } {
-        if { ![empty_string_p [set $var]] || (![info exists workflow($var)] || $workflow($var) eq "") } {
+        if { [set $var] ne "" || (![info exists workflow($var)] || $workflow($var) eq "") } {
             set workflow($var) [set $var]
         }
     }