diff --git a/CHANGELOG.md b/CHANGELOG.md
index a1ff974..ba0ec46 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,5 @@
+# Changelog 1.33.9
+Fixed bug in thread handling when using binary parameters
 # Changelog 1.33.8
 
 Dollar Quoted tags are allowed in files. Prior to Postmodern version 1.33.8 only
diff --git a/README.md b/README.md
index d0a06ec..7ac606c 100644
--- a/README.md
+++ b/README.md
@@ -4,7 +4,7 @@ A Common Lisp PostgreSQL programming interface
 
 ---
 
-Version 1.33.8
+Version 1.33.9
 
 Postmodern is a Common Lisp library for interacting with [PostgreSQL](http://www.postgresql.org) databases. It is under active development. Features are:
 
diff --git a/doc/index.html b/doc/index.html
index bed3f31..1445e3b 100644
--- a/doc/index.html
+++ b/doc/index.html
@@ -1,7 +1,7 @@
 <!DOCTYPE html>
 <html lang="en">
 <head>
-<!-- 2022-11-06 Sun 10:57 -->
+<!-- 2023-10-18 Wed 08:18 -->
 <meta charset="utf-8" />
 <meta name="viewport" content="width=device-width, initial-scale=1" />
 <title>Postmodern</title>
@@ -228,8 +228,8 @@ <h2>Table of Contents</h2>
 <ul>
 <li><a href="#e5c68251-0ca6-4f96-8d36-175cec626eeb">Timezones and Simple-Date and Local-Time</a>
 <ul>
-<li><a href="#org6f3858e">Simple-Date Library Use</a></li>
-<li><a href="#orgbee81fd">Local-Time Library Use</a></li>
+<li><a href="#orgfc9163d">Simple-Date Library Use</a></li>
+<li><a href="#orgd2cd72d">Local-Time Library Use</a></li>
 </ul>
 </li>
 <li><a href="#bdf9ddb0-5f95-4807-8862-8970b35bd142">Portability</a></li>
@@ -243,7 +243,7 @@ <h2>Table of Contents</h2>
 </div>
 </nav>
 <p>
-Version 1.33.7
+Version 1.33.9
 </p>
 
 <p>
@@ -1513,9 +1513,9 @@ <h3 id="e5c68251-0ca6-4f96-8d36-175cec626eeb">Timezones and Simple-Date and Loca
 </pre>
 </div>
 </div>
-<div id="outline-container-org6f3858e" class="outline-4">
-<h4 id="org6f3858e">Simple-Date Library Use</h4>
-<div class="outline-text-4" id="text-org6f3858e">
+<div id="outline-container-orgfc9163d" class="outline-4">
+<h4 id="orgfc9163d">Simple-Date Library Use</h4>
+<div class="outline-text-4" id="text-orgfc9163d">
 <p>
 The Simple-date add-on library (not enabled by default)
 provides types (CLOS classes) for dates, timestamps, and intervals
@@ -1637,9 +1637,9 @@ <h4 id="org6f3858e">Simple-Date Library Use</h4>
 </div>
 </div>
 
-<div id="outline-container-orgbee81fd" class="outline-4">
-<h4 id="orgbee81fd">Local-Time Library Use</h4>
-<div class="outline-text-4" id="text-orgbee81fd">
+<div id="outline-container-orgd2cd72d" class="outline-4">
+<h4 id="orgd2cd72d">Local-Time Library Use</h4>
+<div class="outline-text-4" id="text-orgd2cd72d">
 <p>
 For those who want to use local-time, to enable the local-time reader:
 </p>
@@ -1920,4 +1920,4 @@ <h2 id="844add79-070b-4e89-8797-3bc21ea3173b">Running tests</h2>
 </div>
 </div>
 </body>
-</html>
+</html>
\ No newline at end of file
diff --git a/doc/index.org b/doc/index.org
index 06a4b21..bfa26e6 100644
--- a/doc/index.org
+++ b/doc/index.org
@@ -4,7 +4,7 @@
 #+HTML_HEAD: <style>pre.src{background:#343131;color:white;} </style>
 #+OPTIONS: ^:nil
 
-Version 1.33.7
+Version 1.33.9
 
 Postmodern is a Common Lisp library for interacting with [[https://postgresql.org][PostgreSQL databases]].
 Features are:
diff --git a/postmodern/table.lisp b/postmodern/table.lisp
index 67af79d..9155594 100644
--- a/postmodern/table.lisp
+++ b/postmodern/table.lisp
@@ -1,6 +1,29 @@
 ;;;; -*- Mode: LISP; Syntax: Ansi-Common-Lisp; Base: 10; Package: POSTMODERN; -*-
 (in-package :postmodern)
 
+(defparameter *direct-column-slot* nil
+  "This is used to communicate the fact that a slot is a column to
+  effective-slot-definition-class.")
+
+(defclass effective-column-slot (standard-effective-slot-definition)
+  ((direct-slot :initform *direct-column-slot* :reader slot-column)))
+
+(defclass direct-column-slot (standard-direct-slot-definition)
+  ((col-type :initarg :col-type :reader column-type)
+   (col-default :initarg :col-default :reader column-default)
+   (col-identity :initarg :col-identity :reader column-identity)
+   (col-unique :initarg :col-unique :reader column-unique)
+   (col-collate :initarg :col-collate :reader column-collate)
+   (col-primary-key :initarg :col-primary-key :reader column-primary-key)
+   (col-interval :initarg :col-interval :reader column-interval)
+   (col-check :initarg :col-check :reader column-check)
+   (col-references :initarg :col-references :reader column-references)
+   (col-export :initarg :col-export :initform nil :reader column-export)
+   (col-import :initarg :col-import :initform nil :reader column-import)
+   (ghost :initform nil :initarg :ghost :reader ghost)
+   (sql-name :reader slot-sql-name))
+  (:documentation "Type of slots that refer to database columns."))
+
 (defclass dao-class (standard-class)
   ((direct-keys :initarg :keys :initform nil :reader direct-keys)
    (effective-keys :reader dao-keys)
@@ -216,21 +239,6 @@ such a class)."
           (list (find-primary-key-column class))))
   (build-dao-methods class))
 
-(defclass direct-column-slot (standard-direct-slot-definition)
-  ((col-type :initarg :col-type :reader column-type)
-   (col-default :initarg :col-default :reader column-default)
-   (col-identity :initarg :col-identity :reader column-identity)
-   (col-unique :initarg :col-unique :reader column-unique)
-   (col-collate :initarg :col-collate :reader column-collate)
-   (col-primary-key :initarg :col-primary-key :reader column-primary-key)
-   (col-interval :initarg :col-interval :reader column-interval)
-   (col-check :initarg :col-check :reader column-check)
-   (col-references :initarg :col-references :reader column-references)
-   (col-export :initarg :col-export :initform nil :reader column-export)
-   (col-import :initarg :col-import :initform nil :reader column-import)
-   (ghost :initform nil :initarg :ghost :reader ghost)
-   (sql-name :reader slot-sql-name))
-  (:documentation "Type of slots that refer to database columns."))
 
 (defmethod shared-initialize :after ((slot direct-column-slot) slot-names
                                      &key col-type col-default
@@ -253,12 +261,6 @@ such a class)."
       (find-class 'direct-column-slot)
       (call-next-method)))
 
-(defparameter *direct-column-slot* nil
-  "This is used to communicate the fact that a slot is a column to
-  effective-slot-definition-class.")
-
-(defclass effective-column-slot (standard-effective-slot-definition)
-  ((direct-slot :initform *direct-column-slot* :reader slot-column)))
 
 (defmethod compute-effective-slot-definition ((class dao-class)
                                               name
