diff --git a/M2/Macaulay2/d/actors.d b/M2/Macaulay2/d/actors.d
index b8c55143dd..21e65408af 100644
--- a/M2/Macaulay2/d/actors.d
+++ b/M2/Macaulay2/d/actors.d
@@ -810,7 +810,7 @@ export notFun(rhs:Code):Expr := (
      else if a == True then False
      else if a == False then True
      else unarymethod(a,notS));
-setup(notS,notFun);
+setupop(notS,notFun);
 EqualEqualEqualfun(lhs:Code,rhs:Code):Expr := (
     -- # typical value: symbol ===, Thing, Thing, Boolean
      x := eval(lhs);
diff --git a/M2/Macaulay2/d/common.d b/M2/Macaulay2/d/common.d
index 71ed211b17..9ae9702522 100644
--- a/M2/Macaulay2/d/common.d
+++ b/M2/Macaulay2/d/common.d
@@ -49,37 +49,6 @@ export pos(c:Code):void := (					    -- for use in the debugger
      stdIO << codePosition(c) << endl;
      );
 
-export setup(word:Word):void := (
-     makeSymbol(word,dummyPosition,globalDictionary);
-     );
-export setup(word:Word,fn:unop):void := (
-     e := makeSymbol(word,dummyPosition,globalDictionary);
-     unopNameList = unopNameListCell(fn,e,unopNameList);
-     e.unary = fn;
-     );
-export setup(word:Word,fn:binop):void := (
-     e := makeSymbol(word,dummyPosition,globalDictionary);
-     binopNameList = binopNameListCell(fn,e,binopNameList);
-     e.binary = fn;
-     );
-export setup(word:Word,fun1:unop,fun2:binop):void := (
-     e := makeSymbol(word,dummyPosition,globalDictionary);
-     unopNameList = unopNameListCell(fun1,e,unopNameList);
-     binopNameList = binopNameListCell(fun2,e,binopNameList);
-     e.unary = fun1;
-     e.binary = fun2;
-     );
-export setup(word:Word,fun1:unop,fun2:unop):void := (
-     e := makeSymbol(word,dummyPosition,globalDictionary);
-     unopNameList = unopNameListCell(fun2,e,unopNameList);
-     unopNameList = unopNameListCell(fun1,e,unopNameList);
-     e.unary = fun1;
-     e.postfix = fun2;
-     );
-export setup(e:SymbolClosure,fn:unop):void := (
-     unopNameList = unopNameListCell(fn,e.symbol,unopNameList);
-     e.symbol.unary = fn;
-     );
 export setuppostfix(e:SymbolClosure,fn:unop):void := (
      unopNameList = unopNameListCell(fn,e.symbol,unopNameList);
      e.symbol.postfix = fn;
@@ -94,12 +63,6 @@ export setup(e:SymbolClosure,fun1:unop,fun2:binop):void := (
      e.symbol.unary = fun1;
      e.symbol.binary = fun2;
      );
-export setup(e:SymbolClosure,fun1:unop,fun2:unop):void := (
-     unopNameList = unopNameListCell(fun1,e.symbol,unopNameList);
-     unopNameList = unopNameListCell(fun2,e.symbol,unopNameList);
-     e.symbol.unary = fun1;
-     e.symbol.postfix = fun2;
-     );
 export setupop(s:SymbolClosure,fun:unop):void := (
      unopNameList = unopNameListCell(fun,s.symbol,unopNameList);
      s.symbol.unary = fun;
@@ -110,14 +73,6 @@ export setup(e:SymbolClosure,fn:ternop):void := (
 export setup(e:SymbolClosure,fn:multop):void := (
      multopNameList = multopNameListCell(fn,e.symbol,multopNameList);
      );
-export setupfun(name:string,fun:unop):Symbol := (
-     word := makeUniqueWord(name,
-	  parseinfo(precSpace,precSpace,precSpace,parsefuns(unaryop, defaultbinary)));
-     entry := makeSymbol(word,dummyPosition,globalDictionary);
-     unopNameList = unopNameListCell(fun,entry,unopNameList);
-     entry.unary = fun;
-     entry.Protected = true;
-     entry);
 export setupfun(name:string, value:function(Expr):Expr):Symbol := (
      word := makeUniqueWord(name,parseWORD);
      entry := makeSymbol(word,dummyPosition,globalDictionary);