diff --git a/src/smith.lisp b/src/smith.lisp
index 60fba3f..0e6dc4e 100644
--- a/src/smith.lisp
+++ b/src/smith.lisp
@@ -644,7 +644,9 @@
                     (if (and (symbolp gnrt1)
                              (eq (symbol-package gnrt1)
                                  +gnrts-pckg+))
-                        (s-cmpr gnrt1 gnrt2)
+                        ;;(s-cmpr gnrt1 gnrt2)
+			(f-cmpr (parse-integer (subseq (string gnrt1) 3))
+				(parse-integer (subseq (string gnrt2) 3)))
                         (funcall cmpr gnrt1 gnrt2)))
           :basis #'(lambda (degr)
                      (declare (fixnum degr))