--- numbers.test.~1.17.~	2003-05-04 09:11:34.000000000 +1000
+++ numbers.test	2003-05-04 09:27:55.000000000 +1000
@@ -1,5 +1,5 @@
 ;;;; numbers.test --- tests guile's numbers     -*- scheme -*-
-;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -1609,6 +1609,12 @@
 ;;; -
 ;;;
 
+(with-test-prefix "-"
+
+  (pass-if "-inum - +bignum"
+    (= #x-100000000000000000000000000000001
+       (- -1 #x100000000000000000000000000000000))))
+
 ;;;
 ;;; *
 ;;;