--- capa/capa51/GUITools/quizzer.tcl	1999/12/03 18:39:38	1.10
+++ capa/capa51/GUITools/quizzer.tcl	1999/12/16 22:18:35	1.11
@@ -3005,11 +3005,15 @@ proc trackChanges { procName num } {
 		set chars \[ .$procName get \$insertindex \$insertindex2 \]
 	    }
 	    set gUndo($num.\$numChange) \"insert \$insertindex \[list \$chars\] \"
-            if {\[regexp \{.*\[\"/\].*\} \$chars\] || \
-                \[regexp \{.*\[\"/\].*\} \[.$procName get \"\$insertindex linestart\" \"\$insertindex2 lineend\"\]\]} { 
-               registerCreateImportLinks $num \$insertindex \$insertindex2
+            if { \[string length \$chars\] > 100 } {
+                   registerCreateImportLinks $num \$insertindex-1line \$insertindex2+1line
+            } else {
+                if {\[regexp \{.*\[\"/\].*\} \$chars\] || \
+                    \[regexp \{.*\[\"/\].*\} \[.$procName get \"\$insertindex linestart\" \"\$insertindex2 lineend\"\]\]} { 
+                   registerCreateImportLinks $num \$insertindex \$insertindex2
+                }
             }
-	}
+        }
 	set result \[uplevel .$procName \$args\]
         updateLocation $num
         return \$result
@@ -4386,7 +4390,7 @@ proc analyzeClass { {start 1} } {
     set name [lindex $gAnalyze(toprocess) 1]
     set section [lindex $gAnalyze(toprocess) 2]
     set gAnalyze(toprocess) [lrange $gAnalyze(toprocess) 3 end]
-    set command "$gCapaConfig(answers_command) $number \"$name\" $section $gAnalyze(set)"
+    set command "$gCapaConfig(answers_command) $number \"$name\" 0 $gAnalyze(set)"
     set fileId [open "|$command" "r"]
     set gAnalyze(pid) [pid $fileId]
     fconfigure $fileId -blocking 0