Index: openacs-4/packages/workflow/tcl/workflow-tree-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-tree-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/workflow/tcl/workflow-tree-procs.tcl	4 Jan 2007 09:06:53 -0000	1.2
+++ openacs-4/packages/workflow/tcl/workflow-tree-procs.tcl	17 Sep 2013 19:10:35 -0000	1.3
@@ -89,7 +89,7 @@
     upvar ${multirow}_tree_sorter_sort_stack        stack
     
     set top         [llength $stack]
-    set newtop      [expr $level - 1]
+    set newtop      [expr {$level - 1}]
      
     # Pop from the top of the stack and the sort-key if necessary
     if {$newtop < $top && $newtop >= 0} {
@@ -203,7 +203,7 @@
 	set sort_key            [format $sort_key_format [lindex $row $sort_by] $parent_id]
 		  
 	# Find parent in stack
-	set pos_in_stack        [expr [lsearch $object_id_stack $parent_id] + 1]
+	set pos_in_stack        [expr {[lsearch $object_id_stack $parent_id] + 1}]
 	
 	# Clear anything after parent from the stack
 	if {$pos_in_stack < [llength $object_id_stack]} {