--- gforth/quotes.fs	2007/12/31 18:40:24	1.14
+++ gforth/quotes.fs	2008/07/15 16:11:49	1.16
@@ -1,6 +1,6 @@
 \ quote: S\" and .\" words
 
-\ Copyright (C) 2002,2003,2005,2007 Free Software Foundation, Inc.
+\ Copyright (C) 2002,2003,2005,2007,2008 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -17,6 +17,15 @@
 \ You should have received a copy of the GNU General Public License
 \ along with this program. If not, see http://www.gnu.org/licenses/.
 
+[ifundef] umin
+: umin ( u1 u2 -- u )
+    2dup u>
+    if
+	swap
+    then
+    drop ;
+[then]
+
 : char/ ; immediate
 
 : parse-num-x  ( c-addr1 umax -- c-addr2 c )