diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index ca27563d..23392f82 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -314,18 +314,6 @@
 
 ;;; 6.2. Numbers
 
-(define (+ . args)
-  (do ((acc 0)
-       (nums args (cdr nums)))
-      ((pair? nums) acc)
-    (set! acc (+ acc (car nums)))))
-
-(define (* . args)
-  (do ((acc 1)
-       (nums args (cdr nums)))
-      ((pair? nums) acc)
-    (set! acc (* acc (car nums)))))
-
 (define (min x . args)
   (let loop ((pivot x) (rest args))
     (if (null? rest)