Index: unicode/src/odbc/odbc-main.lisp
===================================================================
--- unicode/src/odbc/odbc-main.lisp	(revision unicode,4)
+++ unicode/src/odbc/odbc-main.lisp	(revision unicode,5)
@@ -106,5 +106,4 @@
 
 
-;;; fixme, is this correct?
 (defmethod print-object ((connection odbc-connection) s)
   (format s "#<~A SERVER=~S DBMS=~S USER=~S>"
@@ -310,5 +309,5 @@
          (error "not able to deduce parameter specification for ~A" obj)))))
 
-(defun exec-sql (connection sql parameter-list)
+(defun exec-sql-statement (connection sql parameter-list)
   (let ((query (make-query connection)))
     (unwind-protect
@@ -358,7 +357,15 @@
         )))
 
+(defun exec-sql* (connection sql parameter-list)
+  (exec-sql-statement connection sql parameter-list))
+
+(defun exec-sql (connection sql &rest parameter-list)
+  (exec-sql* connection sql parameter-list))
+
+
+
 (defun exec-query* (connection sql parameter-list)
   (multiple-value-bind (rows result-sets out-params)
-      (exec-sql connection sql parameter-list)
+      (exec-sql-statement connection sql parameter-list)
     (declare (ignore rows) (ignore out-params))
     (let ((res nil))
@@ -373,5 +380,5 @@
 (defun exec-update* (connection sql parameter-list)
   (multiple-value-bind (rows result-sets out-params)
-      (exec-sql connection sql parameter-list)
+      (exec-sql-statement connection sql parameter-list)
     (declare (ignore result-sets out-params))
     rows))
@@ -382,5 +389,5 @@
 (defun exec-command* (connection sql parameter-list)
   (multiple-value-bind (rows result-sets out-params)
-      (exec-sql connection sql parameter-list)
+      (exec-sql-statement connection sql parameter-list)
     (declare (ignore rows result-sets))
     (values-list out-params)))