From 915ae47d18a77867df4951b39baa0f7f7e0e1877 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vitor@ubuntu.(none)>
Date: Mon, 22 Dec 2008 12:16:31 +0000
Subject: [PATCH] fix ~R bug (thanks to Carsten Mueller)

---
 C/iopreds.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index 4e407a246..472c03b20 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -5130,7 +5130,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
 		numb = -numb;
 		f_putc(sno, (int) '-');
 	      }
-	      while (numb/divfactor > radix) {
+	      while (numb/divfactor >= radix) {
 		divfactor *= radix;
 		size++;
 	      }