Merge branch 'master' into new_gc

[factor.git] / vm / errors.cpp

diff --git a/vm/errors.cpp b/vm/errors.cpp
index 6268ca695da41b7f2d1f991666bc6c48397257d2..148799446aa62b54456cd62a24f2bf3edcf8ee7d 100755 (executable)
--- a/vm/errors.cpp
+++ b/vm/errors.cpp
@@ -114,7 +114,7 @@ void factor_vm::memory_protection_error(cell addr, stack_frame *native_stack)
 
 void factor_vm::signal_error(int signal, stack_frame *native_stack)
 {
-       general_error(ERROR_SIGNAL,tag_fixnum(signal),false_object,native_stack);
+       general_error(ERROR_SIGNAL,allot_cell(signal),false_object,native_stack);
 }
 
 void factor_vm::divide_by_zero_error()