minor bugfix to previous commit

diff --git a/regtape/employee.pc b/regtape/employee.pc
index 5d660e9fcbe47fea2406853838d3f552adb8b89e..ca81ccc8e06c9742ba7ddbc69d66bb96b6b22a48 100644 (file)
--- a/regtape/employee.pc
+++ b/regtape/employee.pc
@@ -579,7 +579,7 @@ set_next_uid(high)
     }
 
     retval = value++;
-    if (limit && value > MAX_ID_VALUE)
+    if (!high && value > MAX_ID_VALUE)
       value = MIN_ID_VALUE;
     EXEC SQL UPDATE numvalues SET value = :value WHERE name = :name;
     if (sqlca.sqlcode != 0) {