--- gforth/test/gforth-nofast.fs	2006/10/28 08:44:25	1.2
+++ gforth/test/gforth-nofast.fs	2007/12/31 17:34:59	1.4
@@ -1,6 +1,6 @@
 \ test stuff that is not guaranteed in gforth-fast, but elsewhere
 
-\ Copyright (C) 2006 Free Software Foundation, Inc.
+\ Copyright (C) 2006,2007 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -22,14 +22,14 @@ require ./tester.fs
 decimal
 
 \ division by zero
-{ 1 0 ' /    catch -> 1 0 -10 }
-{ 1 0 ' mod  catch -> 1 0 -10 }
-{ 1 0 ' /mod catch -> 1 0 -10 }
-{ 1 1 0 ' */mod catch -> 1 1 0 -10 }
-{ 1 1 0 ' */    catch -> 1 1 0 -10 }
-{ 1. 0 ' fm/mod catch -> 1. 0 -10 }
-{ 1. 0 ' sm/rem catch -> 1. 0 -10 }
-{ 1. 0 ' um/mod catch -> 1. 0 -10 }
+{ 1 0 ' /    catch 0= -> 1 0 false }
+{ 1 0 ' mod  catch 0= -> 1 0 false }
+{ 1 0 ' /mod catch 0= -> 1 0 false }
+{ 1 1 0 ' */mod catch 0= -> 1 1 0 false }
+{ 1 1 0 ' */    catch 0= -> 1 1 0 false }
+{ 1. 0 ' fm/mod catch 0= -> 1. 0 false }
+{ 1. 0 ' sm/rem catch 0= -> 1. 0 false }
+{ 1. 0 ' um/mod catch 0= -> 1. 0 false }
 
 \ division overflow
 environment-wordlist >order