Index: /trunk/ccl/library/lispequ.lisp
===================================================================
--- /trunk/ccl/library/lispequ.lisp	(revision 645)
+++ /trunk/ccl/library/lispequ.lisp	(revision 646)
@@ -232,6 +232,10 @@
   bt.youngest
   bt.oldest
-  bt.sg
+  bt.tcr
   bt.restarts)
+
+(defconstant bt.sg bt.tcr)
+(setf (macro-function 'bt.sg) (macro-function 'bt.tcr))
+
 
 (def-accessors (lock) %svref