X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftable.lisp;h=a49ed2adb6d405d0b1e4c0c868f0bd0b57f6a3cf;hp=67b474d2a2f1c65a0e42ff982bd7351c7a5380b6;hb=63158b2ef9d21af6454966d78b7e3ea81a9c73aa;hpb=38da4a41e87a8274f95c536c3086815b99ef4a61

diff --git a/sql/table.lisp b/sql/table.lisp
index 67b474d..a49ed2a 100644
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -72,9 +72,9 @@ an error is signalled if IF-DOES-NOT-EXIST is :error."
     (let ((expr (concatenate 'string "DROP TABLE " table-name)))
       (when (and (find-package 'clsql-oracle)
 		 (eq :oracle (database-type database))
-		 (eql 9 (slot-value database 
-				    (intern (symbol-name '#:major-version-number)
-					    (symbol-name '#:clsql-oracle)))))
+		 (eql 10 (slot-value database 
+				     (intern (symbol-name '#:major-server-version)
+					     (symbol-name '#:clsql-oracle)))))
 	(setq expr (concatenate 'string expr " PURGE")))
 
       (execute-command expr :database database))))