diff --git a/modules/database/src/std/rec/seqRecord.dbd.pod b/modules/database/src/std/rec/seqRecord.dbd.pod
index dd025bfbd..31b24bd59 100644
--- a/modules/database/src/std/rec/seqRecord.dbd.pod
+++ b/modules/database/src/std/rec/seqRecord.dbd.pod
@@ -114,9 +114,9 @@ which links will be processed by the seq record,
 in combination with the C<SHFT> field:
 
   if (SHFT >= 0)
-    SELN = SELN << -SHFT
-  else
     SELN = SELN >> SHFT
+  else
+    SELN = SELN << -SHFT
 
 I<(By default, the SHFT field is initialized to -1)>