--- a/DataSetBuilder.st	Tue Jan 28 21:59:08 2014 +0100
+++ b/DataSetBuilder.st	Tue Jan 28 21:59:18 2014 +0100
@@ -3945,7 +3945,9 @@
             , '\\'.
 
     code := code withCRs.
-    (ReadStream on:code) fileIn.
+    Class packageQuerySignal answer:cls package do:[
+        (ReadStream on:code) fileIn.
+    ].
 
 "/    self isStandAlone ifTrue: [self helpTool installHelpSpecsOnClass:self specClass].
 
@@ -3954,6 +3956,8 @@
 
     hasSaved := true.
     self clearModified.
+
+    "Modified: / 28-01-2014 / 21:57:35 / cg"
 !
 
 openDocumentation