--- a/UIPainter.st	Wed Jun 22 14:29:39 2011 +0200
+++ b/UIPainter.st	Fri Jun 24 10:46:37 2011 +0200
@@ -5366,11 +5366,13 @@
 doGenerateAspectSelectorsMethod
     "generates aspectSelectors method for the exported aspects"
 
+    |aspectSelectorsAsString|
 
     self askForSectionModification.
-
-    (ReadStream on:self painter generateAspectSelectorsMethod) fileIn.
-
+    aspectSelectorsAsString := self painter generateAspectSelectorsMethod.
+    aspectSelectorsAsString notEmptyOrNil ifTrue:[
+        (ReadStream on:aspectSelectorsAsString) fileIn.
+    ].
 !
 
 doGenerateHookMethods