--- a/docs/manual.sgml	Tue Feb 15 19:40:41 2011 +0200
+++ b/docs/manual.sgml	Tue Feb 15 19:40:52 2011 +0200
@@ -1,6 +1,6 @@
 <!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN" "/usr/share/xml/docbook/schema/dtd/4.3/docbookx.dtd">
 <!-- Define some entities
-<!ENTITY ggrtfver "0.6.15.0">
+<!ENTITY ggrtfver "0.6.15.2">
 <!ENTITY finger "<ulink url='http://www.bat.org/char/$1'>$1</ulink>">
 <!ENTITY jeskko "<ulink url='http://jeskko.pupunen.net/'>Jarkko Vääräniemi</ulink> (&finger Jeskko;)">
 <!ENTITY ggr "<ulink url='http://tnsp.org/~ccr/'>Matti Hämäläinen</ulink> (&finger Ggr;)">

--- a/gm-rpouch.tf	Tue Feb 15 19:40:41 2011 +0200
+++ b/gm-rpouch.tf	Tue Feb 15 19:40:52 2011 +0200
@@ -26,6 +26,12 @@
 /set rpouch_get=0
 /set rpouch_regs=
 
+/def -i -F -msimple -t"It is labeled as 'pussi'." grpouch_fgrab =\
+	/if (rpouch_save!~"" & rpouch_save >= 0)\
+		/test tfclose(rpouch_save)%;\
+	/endif%;\
+	/set rpouch_save=$[tfopen(strcat(HOME,"/public_html/reagents.txt"),"w")]
+
 /def -i grpouch_report =\
 	/if (regmatch("^[0-9]+$",{1}))\
 		/let _nval=%{1}%;\
@@ -42,6 +48,10 @@
 	/set rpouch_total_pwr=$[rpouch_total_pwr + {2}]%;\
 	/set rpouch_total_std=$[rpouch_total_std + {3}]%;\
 	/set rpouch_total_por=$[rpouch_total_por + {4}]%;\
+	/if (rpouch_save!~"" & rpouch_save >= 0)\
+		/let _line=%{2}|%{6}%;\
+		/test tfwrite(rpouch_save, _line)%;\
+	/endif%;\
 	/if (rpouch_get)\
 		/set rpouch_%{rpouch_name}_%{7}=%{2}%;\
 		/substitute -ag%;\
@@ -51,7 +61,7 @@
 		/endif%;\
 	/endif
 
-/def -i -E(rpouch_get==1) -p9999 -F -mregexp -t"^(It looks .*(heavy|weight)\.|This is a large pouch for the storing of reagents|reagents over reboots in this.|Syntax: store <item> in <this>| +extract .amount. <item>| +set_default_reagent|transfer .number. .reagent.|Some commands allow the use of|It is labeled as |The label can be set with |[Ii]t is surrounded by )" grpouch_gag =\
+/def -i -Erpouch_get -p9999 -F -mregexp -t"^(It looks .*(heavy|weight)\.|This is a large pouch for the storing of reagents|reagents over reboots in this.|Syntax: store <item> in <this>| +extract .amount. <item>| +set_default_reagent|transfer .number. .reagent.|Some commands allow the use of|It is labeled as |The label can be set with |[Ii]t is surrounded by )" grpouch_gag =\
 	/set rpouch_st=0%;\
 	/substitute -ag
 
@@ -62,12 +72,16 @@
 	/set rpouch_total_por=0%;\
 	/substitute -ag
 
-/def -i -E(rpouch_get==1) -p999 -F -msimple -t"You see nothing special." grpouch_end2 =\
+/def -i -Erpouch_get -p999 -F -msimple -t"You see nothing special." grpouch_end2 =\
 	/set rpouch_st=0%;\
 	/set rpouch_get=0%;\
 	/msq @{BCred}No such reagent pouch@{n} '@{BCgreen}%{rpouch_target}@{n}'!
 
 /def -i -p999 -F -mregexp -t"^This item is in " grpouch_end =\
+	/if (rpouch_save >= 0)\
+		/test tfclose(rpouch_save)%;\
+		/set rpouch_save=-1%;\
+	/endif%;\
 	/if (rpouch_st & !rpouch_get)\
 		/let _nval=$[rpouch_total_pwr + rpouch_total_std + rpouch_total_por]%;\
 		/if (opt_reglite=~"on")\