From 337266fea0b973ea0ae236f33a2b18c603039cf7 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 29 Sep 2017 13:51:30 -0400
Subject: new AST WCS

---
 ds9/doc/release/r7.6.html | 3 ++-
 ds9/library/cat.tcl       | 3 +--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ds9/doc/release/r7.6.html b/ds9/doc/release/r7.6.html
index a38f08f..5cf34bf 100644
--- a/ds9/doc/release/r7.6.html
+++ b/ds9/doc/release/r7.6.html
@@ -143,7 +143,8 @@
         <li><tt>09.21.2017 TCL/TK: updated to version 8.6.7.</tt></li>
         <li><tt>09.25.2017 VO: rm checkdns from init sequence</tt></li>
         <li><tt>09.25.2017 XPA: rm checkdns from init sequence</tt></li>
-        <li><tt><b>xx.xx.2017 RELEASE version 7.6b6</b></tt></li>
+        <li><tt>09.29.2017 WCS: fixed a problem with use of PC keywords, with CDELT = 1.</tt></li>
+        <li><tt><b>10.01.2017 RELEASE version 7.6b6</b></tt></li>
       </ol>
     </ol>
   </body>
diff --git a/ds9/library/cat.tcl b/ds9/library/cat.tcl
index 2820356..f373f69 100644
--- a/ds9/library/cat.tcl
+++ b/ds9/library/cat.tcl
@@ -1656,8 +1656,7 @@ proc ProcessCatalog {varname iname cvarname} {
 	    CATGenerate $cvarname
 	}
 	regions {CATGenerateRegions $cvarname}
-	retrieve -
-	retreive {CATApply $cvarname 1}
+	retrieve {CATApply $cvarname 1}
 	samp {
 	    global ds9
 	    global samp
-- 
cgit v0.12