diff --git a/extra/windows/time/time.factor b/extra/windows/time/time.factor
old mode 100644
new mode 100755
index e910ca2888..63b12de1ff
--- a/extra/windows/time/time.factor
+++ b/extra/windows/time/time.factor
@@ -8,7 +8,7 @@ IN: windows.time
     32 shift bitor ;
 
 : windows-1601 ( -- timestamp )
-    1601 1 1 0 0 0 0 <timestamp> ;
+    1601 1 1 0 0 0 instant <timestamp> ;
 
 : FILETIME>windows-time ( FILETIME -- n )
     [ FILETIME-dwLowDateTime ] keep