diff --git a/DESCRIPTION b/DESCRIPTION
index 338b0cb..76750cf 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: network
-Version: 1.17.1-685
-Date: 2021-06-08
+Version: 1.17.1-747
+Date: 2022-05-21
 Title: Classes for Relational Data
 Authors@R: c(
     person("Carter T.", "Butts", role=c("aut","cre"), email="buttsc@uci.edu"),
diff --git a/R/coercion.R b/R/coercion.R
index 25ce6f9..6aa8645 100644
--- a/R/coercion.R
+++ b/R/coercion.R
@@ -208,7 +208,7 @@ as.matrix.network.adjacency<-function(x,attrname=NULL,expand.bipartite=FALSE,...
   if(is.bipartite(x)&(!expand.bipartite)){
     nactors <- get.network.attribute(x, "bipartite")
     nevents <- network.size(x) - nactors
-    m <- m[0:nactors, nactors+(1:nevents)]
+    m <- m[1:nactors, nactors+(1:nevents), drop=FALSE]
   }
   #Return the result
   m