--- capa/capa51/GUITools/common.tcl	1999/12/13 21:38:44	1.3
+++ capa/capa51/GUITools/common.tcl	1999/12/16 22:18:35	1.4
@@ -1442,7 +1442,7 @@ proc getSet { pid set followupCommand {s
 	if { [array names gGetSet exit] == "" } { set gGetSet(exit) 0 }
     }
     if { [catch {set gCapaConfig(getSet.answers_command)}] } {parseCapaConfig getSet}
-    set command "$gCapaConfig(getSet.answers_command) $pid {} {} $set"
+    set command "$gCapaConfig(getSet.answers_command) $pid {} 1 $set"
     foreach var [array names gCapaConfig $num.*] { unset gCapaConfig($var) }
     set fileId [open "|$command" "r"]
     fileevent $fileId readable "getSetLine $num $fileId"