diff --git a/goldberg.cpp b/goldberg.cpp
index 689c0ee1..3081c31c 100644
--- a/goldberg.cpp
+++ b/goldberg.cpp
@@ -1423,6 +1423,13 @@ EX namespace gp {
         }
       return C0;
       }
+
+    int pattern_value(cell *c) override {
+      println(hlog, "here");
+      auto c1 = get_mapped(c, 0);
+      return UIU(currentmap->pattern_value(c1));
+      println(hlog, "done");
+      }
     };
 
   EX hrmap* new_inverse() { return new hrmap_inverse; }