--- a/SHA1Stream.st	Thu Feb 20 14:44:45 2003 +0100
+++ b/SHA1Stream.st	Thu Feb 20 16:13:09 2003 +0100
@@ -595,7 +595,7 @@
 		if (val > 255) {
 		    /* Two byte character */
 		    short s = val;
-		    SHA1Update(ctx, &s, 2);
+		    SHA1Update(ctx, (char *)&s, 2);
 		} else {
 		    char c = val;
 		    SHA1Update(ctx, &c, 1);
@@ -610,7 +610,7 @@
 		/* SmallInteger */
 
 		INT i = __intVal(anObject);
-		SHA1Update(ctx, &i, sizeof(INT));
+		SHA1Update(ctx, (char *)&i, sizeof(INT));
 	    }
 	}
     }
@@ -690,7 +690,7 @@
 !SHA1Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.9 2003-02-19 17:09:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.10 2003-02-20 15:13:09 stefan Exp $'
 ! !
 
 SHA1Stream initialize!