diff --git a/inst/server/m2rserverscript.m2 b/inst/server/m2rserverscript.m2
index d10a3bf..1ff685f 100644
--- a/inst/server/m2rserverscript.m2
+++ b/inst/server/m2rserverscript.m2
@@ -25,6 +25,11 @@ m2rintinout << "1.0.0" << "\n" << flush;
 m2rintlog(concatenate("Connection received on port ", toString m2rintopenport));
 m2rintlog("");
 
+-- use legacy smith normal form
+if Core#"private dictionary"#?"preSmithNormalForm" then (
+    mthd := value Core#"private dictionary"#"preSmithNormalForm";
+    smithNormalForm Matrix := lookup(mthd, Matrix))
+
 while true do (
   --while (not isReady m2rintinout) do (
   --  run "sleep 0.05";