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 04bda4aa03..a8b9325e6a 100644
--- a/M2/Macaulay2/d/common.d
+++ b/M2/Macaulay2/d/common.d
@@ -69,10 +69,6 @@ export setup(word:Word,fun1:unop,fun2:binop):void := (
      e.unary = fun1;
      e.binary = 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;