Observed:
=======

package require struct
struct::pool::pool chars
chars add a
chars add b
chars add c
chars request char -prefer a
chars request char -prefer a

The last command fails, returning an error.

Desired
=====
The last command should return the value zero, as
documented.

Fix
===
A bug in the code for ::struct::pool::request was the
cause.
I fixed the code, and attached a diff (with respect to
version 1.2 of pool.tcl) which has that fix.

Greetings,

Erik Leunissen
==========

Logged In: YES 
user_id=75003

Accepted alternative fix and commited to head.

Logged In: NO 

I also encountered this issue, but fixed it slightly
differently. Note that this error occurs only when there are
unallocated items in the pool.

Alternative diff:

--- pool.tcl.orig       Wed Nov 19 03:19:50 2003
+++ pool.tcl    Wed Nov 19 03:02:54 2003
@@ -675,6 +675,8 @@
             if { $state($prefer) == -1 } {
                 set index [lsearch $pool(freeitems) $prefer]
                 set item $prefer
+            } else {
+                return 0
             }
         } else  {
             set index 0

File Added - 67531: diff.txt