--- gforth/stuff.fs	1996/05/23 15:13:13	1.4
+++ gforth/stuff.fs	1996/10/06 22:24:19	1.5
@@ -35,10 +35,10 @@ AUser CSP
 \ DMIN and DMAX
 
 : dmin ( d1 d2 -- d ) \ double
-    2over 2over d< IF  2swap  THEN 2drop ;
+    2over 2over d> IF  2swap  THEN 2drop ;
 
 : dmax ( d1 d2 -- d ) \ double
-    2over 2over d> IF  2swap  THEN 2drop ;
+    2over 2over d< IF  2swap  THEN 2drop ;
 
 \ shell commands