Smalltalk.st
changeset 456 411202bbbfbb
parent 453 57381f377c3f
child 457 41c73cbee305
--- a/Smalltalk.st	Sun Oct 29 18:48:44 1995 +0100
+++ b/Smalltalk.st	Sun Oct 29 19:08:45 1995 +0100
@@ -26,14 +26,14 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.69 1995-10-28 16:45:10 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.70 1995-10-29 18:08:45 cg Exp $
 '!
 
 !Smalltalk class methodsFor:'documentation'!
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.69 1995-10-28 16:45:10 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.70 1995-10-29 18:08:45 cg Exp $
 "
 !
 
@@ -2327,7 +2327,7 @@
      and represent a stable workable version which got published
      to the outside world."
 
-    ^ 7
+    ^ 8
 
     " 
      Smalltalk revisionNr
@@ -2349,16 +2349,13 @@
 !
 
 versionDate
-    "return the version date - thats the date when the smalltalk
-     executable was linked."
-
+    "return the executables build date - thats the date when the smalltalk
+     executable was built"
 %{
-#ifdef VERSIONDATE_STRING
-    RETURN ( _MKSTRING(VERSIONDATE_STRING COMMA_SND) );
-#endif
-%}.
-    ^ '12-oct-1995'
-
+    extern char *__getBuildDateString();
+
+    RETURN (__MKSTRING(__getBuildDateString() COMMA_SND) );
+%}
     "
      Smalltalk versionDate
     "