quick test vocab for mt stuff

[factor.git] / vm / tagged.hpp

diff --git a/vm/tagged.hpp b/vm/tagged.hpp
index 13ddf4a0474c47312c96d057cbabb1cffde7fb35..8eb492a140c387c4c1d1606ea982b847c6acf4c2 100755 (executable)
--- a/vm/tagged.hpp
+++ b/vm/tagged.hpp
@@ -37,13 +37,13 @@ struct tagged
 
        explicit tagged(cell tagged) : value_(tagged) {
 #ifdef FACTOR_DEBUG
-               untag_check(SIGNAL_VM_PTR);
+               untag_check(SIGNAL_VM_PTR());
 #endif
        }
 
        explicit tagged(TYPE *untagged) : value_(factor::tag(untagged)) {
 #ifdef FACTOR_DEBUG
-               untag_check(SIGNAL_VM_PTR); 
+               untag_check(SIGNAL_VM_PTR()); 
 #endif
        }