split-last "." on windows

diff --git a/basis/bootstrap/stage2.factor b/basis/bootstrap/stage2.factor
index 13f943898caa8ecac2692656b597487f4103c61e..b521244fe0ae73abf32b170eaff1713b1cff0a89 100644 (file)
--- a/basis/bootstrap/stage2.factor
+++ b/basis/bootstrap/stage2.factor
@@ -13,7 +13,7 @@ SYMBOL: core-bootstrap-time
 SYMBOL: bootstrap-time
 
 : default-image-name ( -- string )
-    vm file-name os windows? [ "." split1 drop ] when
+    vm file-name os windows? [ "." split1-last drop ] when
     ".image" append resource-path ;
 
 : do-crossref ( -- )