--- a/UIPainterView.st	Tue Jul 07 12:42:08 2015 +0200
+++ b/UIPainterView.st	Tue Jul 07 12:42:46 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 UIObjectView subclass:#UIPainterView
 	instanceVariableNames:'treeView listHolder superclassName className methodName
 		categoryName handleColorBlack handleColorWhite handleMasterColor
@@ -1731,13 +1733,15 @@
 
     code := code
             , '\'
-            , '    <resource: #canvas>\\'
+            , '    <resource: #canvas>\\'.
+    code := code withCRs.
+    code := code
             , '    ^ ' , specCode
-            , '\'
+            , '\' withCRs
             , '!! !!'
-            , '\\'.
-
-    ^ code withCRs
+            , '\\' withCRs.
+
+    ^ code
 !
 
 listOfAspects