--- a/ObjMem.st	Fri Nov 24 20:19:45 1995 +0100
+++ b/ObjMem.st	Fri Nov 24 21:48:43 1995 +0100
@@ -13,17 +13,17 @@
 Object subclass:#ObjectMemory
 	 instanceVariableNames:''
 	 classVariableNames:'InternalErrorHandler UserInterruptHandler TimerInterruptHandler
-                SpyInterruptHandler StepInterruptHandler
-                ExceptionInterruptHandler ErrorInterruptHandler
-                MemoryInterruptHandler SignalInterruptHandler
-                ChildSignalInterruptHandler DisposeInterruptHandler
-                RecursionInterruptHandler IOInterruptHandler
-                CustomInterruptHandler RegisteredErrorInterruptHandlers
-                InterruptLatencyMonitor AllocationFailureSignal
-                MallocFailureSignal LowSpaceSemaphore IncrementalGCLimit
-                FreeSpaceGCLimit FreeSpaceGCAmount BackgroundCollectProcess
-                BackgroundFinalizationProcess FinalizationSemaphore Dependents
-                ImageName ChangeFileName MaxInterruptLatency InterruptLatencyGoal'
+		SpyInterruptHandler StepInterruptHandler
+		ExceptionInterruptHandler ErrorInterruptHandler
+		MemoryInterruptHandler SignalInterruptHandler
+		ChildSignalInterruptHandler DisposeInterruptHandler
+		RecursionInterruptHandler IOInterruptHandler
+		CustomInterruptHandler RegisteredErrorInterruptHandlers
+		InterruptLatencyMonitor AllocationFailureSignal
+		MallocFailureSignal LowSpaceSemaphore IncrementalGCLimit
+		FreeSpaceGCLimit FreeSpaceGCAmount BackgroundCollectProcess
+		BackgroundFinalizationProcess FinalizationSemaphore Dependents
+		ImageName ChangeFileName MaxInterruptLatency InterruptLatencyGoal'
 	 poolDictionaries:''
 	 category:'System-Support'
 !
@@ -847,10 +847,10 @@
     if (! __isNonNilObject(anObject)) {
 	RETURN ( nil );
     }
-    if (((int)anObject >= _MIN_INT) && ((int)anObject <= _MAX_INT)) {
+    if ((unsigned)anObject <= _MAX_INT) {
 	RETURN ( _MKSMALLINT((int)anObject) );
     }
-    RETURN ( _MKLARGEINT((int)anObject) );
+    RETURN ( __MKUINT((int)anObject) );
 %}
     "
     |p|
@@ -3167,6 +3167,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.79 1995-11-23 17:11:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.80 1995-11-24 20:48:43 cg Exp $'
 ! !
 ObjectMemory initialize!