--- a/SubCanvas.st	Fri Dec 15 16:46:45 2000 +0100
+++ b/SubCanvas.st	Fri Dec 15 16:47:16 2000 +0100
@@ -377,7 +377,7 @@
             client buildSubCanvas:subSpec withBuilder:builder.
             keepClientView ifFalse:[    
                 (scrolledView notNil and:[clientView isSubViewOf:scrolledView]) ifTrue:[
-                    self halt
+                    self error:'this should not happen'
                 ] ifFalse:[
                     self scrolledView:clientView.
                 ]
@@ -534,5 +534,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.32 2000-12-15 15:46:45 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.33 2000-12-15 15:47:16 tm Exp $'
 ! !