diff --git a/floorshapes.cpp b/floorshapes.cpp
index d4147d63..5b6202b8 100644
--- a/floorshapes.cpp
+++ b/floorshapes.cpp
@@ -137,11 +137,6 @@ matrixitem genitem(const transmatrix& m1, const transmatrix& m2, int nsym) {
 
 bool do_kleinize() { return S3 >= OINF || (cgflags & qIDEAL); }
 
-EX hyperpoint kleinize(hyperpoint h) { 
-  if(GDIM == 2) return point3(h[0]/h[2], h[1]/h[2], 1); 
-  else return point31(h[0]/h[3], h[1]/h[3], h[2]/h[3]);
-  }
-
 EX hyperpoint may_kleinize(hyperpoint h) { 
   if(do_kleinize()) return kleinize(h);
   else return h;
diff --git a/hyperpoint.cpp b/hyperpoint.cpp
index d1d54e9e..4bdc0739 100644
--- a/hyperpoint.cpp
+++ b/hyperpoint.cpp
@@ -789,6 +789,11 @@ EX transmatrix parabolic13(ld u, ld v) {
     }
   }
 
+EX hyperpoint kleinize(hyperpoint h) {
+  if(GDIM == 2) return point3(h[0]/h[2], h[1]/h[2], 1);
+  else return point31(h[0]/h[3], h[1]/h[3], h[2]/h[3]);
+  }
+
 EX hyperpoint deparabolic13(hyperpoint h) {
   if(euclid) return h;
   if(cgi.emb->is_euc_in_hyp()) {