--- a/UIPainter.st	Wed Jun 10 22:33:37 2009 +0200
+++ b/UIPainter.st	Wed Jun 10 22:34:02 2009 +0200
@@ -5512,7 +5512,7 @@
     self askForModification ifFalse: [^nil].
     specClass := specClassName := specSelector := nil.
     self painter removeAll.
-self halt.
+"/ self halt.
     treeView canvas topView 
         name:  self defaultNameOfCanvas;
         label: self defaultNameOfCanvas.