# HG changeset patch # User Claus Gittinger # Date 1257535929 -3600 # Node ID 41a810c685dec096002f06f446a1e7d5e5373069 # Parent 4eef4a0cf64c70ddfd042cd619fb7bf01853e94d changed: #sourceStreamFor: diff -r 4eef4a0cf64c -r 41a810c685de Class.st --- a/Class.st Fri Nov 06 13:54:52 2009 +0100 +++ b/Class.st Fri Nov 06 20:32:09 2009 +0100 @@ -4614,7 +4614,7 @@ sep ~~ 0 ifTrue:[ mod := package copyTo:sep - 1. dir := package copyFrom:sep + 1. -self halt. +self breakPoint:#fm. sourceStream := sourceCodeManager streamForClass:nil fileName:source revision:(self binaryRevision) directory:dir module:mod cache:true. ]. ]. @@ -5022,9 +5022,9 @@ !Class class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.561 2009-11-06 10:51:12 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.561 2009-11-06 10:51:12 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $' ! !