--- a/BreakpointNode.st	Wed Jun 04 16:38:51 2014 +0200
+++ b/BreakpointNode.st	Wed Jun 04 16:38:59 2014 +0200
@@ -62,8 +62,9 @@
     ^ lineNumber
 !
 
-lineNumber:something
-    lineNumber := something.
+lineNumber:lineNumberArg
+    self assert:(lineNumberArg >= 0).
+    lineNumber := lineNumberArg.
 ! !
 
 !BreakpointNode methodsFor:'code generation'!
@@ -164,11 +165,11 @@
 !BreakpointNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.9 2014-05-16 09:23:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.10 2014-06-04 14:38:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.9 2014-05-16 09:23:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.10 2014-06-04 14:38:59 cg Exp $'
 !
 
 version_SVN