Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	18 Jul 2018 22:33:25 -0000	1.26
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	7 Oct 2018 11:39:57 -0000	1.27
@@ -924,43 +924,7 @@
 }
 
 namespace eval ::xowf {
-  WorkflowConstruct instforward true set "" 1
-  WorkflowConstruct instforward false set "" 0
 
-  proc ? {cmd expected {msg ""}} {
-     ::xo::Timestamp t1
-     set r [uplevel $cmd]
-     if {$msg eq ""} {set msg $cmd}
-     if {$r ne $expected} {
-       regsub -all \# $r "" r
-       append ::_ "Error: $msg returned \n'$r' ne \n'$expected'\n"
-     } else {
-       append ::_ "$msg - passed ([t1 diff] ms)\n"
-     }
-   }
-
-  if {0} {
-    #
-    # some test cases
-    #
-    WorkflowConstruct x
-    set ::_ ""
-    ? {x get_value ""} ""
-    ? {x get_value a} a
-    ? {x get_value {a b}} {a b}
-    ? {x get_value "a b"} {a b}
-    ? {x get_value "? true a default b"} {a}
-    ? {x get_value "? false a default b"} {b}
-    ? {x get_value "? true {a b} default {b c}"} {a b}
-    ? {x get_value "? false {a b} default {b c}"} {b c}
-    ? {x get_value_set "? false {a b} default {b c}"} {a b c}
-    ns_log notice "--Test returns $::_"
-  }
-}
-
-
-namespace eval ::xowf {
-
   Class create State -superclass WorkflowConstruct -parameter {
     {actions ""}
     {view_method ""}