--- a/Block.st	Thu Mar 09 10:45:46 1995 +0100
+++ b/Block.st	Thu Mar 09 11:44:00 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Block.st,v 1.28 1995-03-08 23:36:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Block.st,v 1.29 1995-03-09 10:43:56 claus Exp $
 '!
 
 !Block class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Block.st,v 1.28 1995-03-08 23:36:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Block.st,v 1.29 1995-03-09 10:43:56 claus Exp $
 "
 !
 
@@ -338,7 +338,8 @@
 
     if (_INST(nargs) == _MKSMALLINT(2)) {
 #if defined(THIS_CONTEXT)
-	if (1 /* _intVal(__pilc->ilc_lineNo) > 0 */)
+	if (__isPositiveSmallInteger(__pilc->ilc_lineNo)
+	    /* 1 */ /* _intVal(__pilc->ilc_lineNo) > 0 */)
 	    _ContextInstPtr(__thisContext)->c_lineno = __pilc->ilc_lineNo;
 #endif
 	thecode = _BlockInstPtr(self)->b_code;
@@ -371,7 +372,8 @@
 
     if (_INST(nargs) == _MKSMALLINT(3)) {
 #if defined(THIS_CONTEXT)
-	if (1 /* _intVal(__pilc->ilc_lineNo) > 0 */)
+	if (__isPositiveSmallInteger(__pilc->ilc_lineNo)
+	    /* 1 */ /* _intVal(__pilc->ilc_lineNo) > 0 */)
 	    _ContextInstPtr(__thisContext)->c_lineno = __pilc->ilc_lineNo;
 #endif
 	thecode = _BlockInstPtr(self)->b_code;
@@ -404,7 +406,8 @@
 
     if (_INST(nargs) == _MKSMALLINT(4)) {
 #if defined(THIS_CONTEXT)
-	if (1 /* _intVal(__pilc->ilc_lineNo) > 0 */)
+	if (__isPositiveSmallInteger(__pilc->ilc_lineNo)
+	    /* 1 */ /* _intVal(__pilc->ilc_lineNo) > 0 */)
 	    _ContextInstPtr(__thisContext)->c_lineno = __pilc->ilc_lineNo;
 #endif
 	thecode = _BlockInstPtr(self)->b_code;
@@ -437,7 +440,8 @@
 
     if (_INST(nargs) == _MKSMALLINT(5)) {
 #if defined(THIS_CONTEXT)
-	if (1 /* _intVal(__pilc->ilc_lineNo) > 0 */)
+	if (__isPositiveSmallInteger(__pilc->ilc_lineNo)
+	    /* 1 */ /* _intVal(__pilc->ilc_lineNo) > 0 */)
 	    _ContextInstPtr(__thisContext)->c_lineno = __pilc->ilc_lineNo;
 #endif
 	thecode = _BlockInstPtr(self)->b_code;
@@ -470,7 +474,8 @@
 
     if (_INST(nargs) == _MKSMALLINT(6)) {
 #if defined(THIS_CONTEXT)
-	if (1 /* _intVal(__pilc->ilc_lineNo) > 0 */)
+	if (__isPositiveSmallInteger(__pilc->ilc_lineNo)
+	    /* 1 */ /* _intVal(__pilc->ilc_lineNo) > 0 */)
 	    _ContextInstPtr(__thisContext)->c_lineno = __pilc->ilc_lineNo;
 #endif
 	thecode = _BlockInstPtr(self)->b_code;